1 FR=53280:POKEFR,0:POKEFR+1,15:POKE646,0:H=100
2 PRINT"[147]FORD PREFECT'S TELEFONMANN"
3 INPUT"INTERVALL=SEK.  ? 42[157][157][157][157]";EI
4 INPUT"TARIF=DM/SFR/OS ? 0.23[157][157][157][157][157][157]";GE
5 TI$="000001"
6 AA=ZZ:A=INT(TI/60)
7 XX=A/EI:ZZ=INT(XX)+1:IFAA<>ZZTHENPOKEFR,6:POKEFR,4:POKEFR,2:POKEFR,9:POKEFR,0
8 PRINT"DAUER     : ";LEFT$(TI$,2);"'";MID$(TI$,3,2);":";RIGHT$(TI$,2),A
9 PRINT"KOSTEN    :";ZZ*GE; "[157]  DM/SFR/OS   "
10 PRINT"RELATIV   :";INT(XX*GE*H)/H;"[157]  DM/SFR/OS   "
11 PRINT"EINHEITEN :";ZZ
12 GETA$:IFA$=""THEN6
13 IFZZ<5THENPRINT"DAS WAR JA EIN GUENSTIGES VERGNUEGEN !":GOTO20
14 IFZZ>400THENPRINT"HAUPTSACHE, WIR SIND ALLE GESUND !":GOTO20
15 IFZZ>300THENPRINT"HAST DU ETWA IM LOTTO GEWONNEN ?":GOTO20
16 IFZZ>200THENPRINT"DIE TELEKOM/P&T WIRD SICH FREUEN !":GOTO20
17 IFZZ<50THEN20
18 PRINT"MERKST DU'S IMMER ERST SO SPAET,"
19 PRINT"WENN DU FALSCH VERBUNDEN BIST ?"
20 PRINT"RUF MAL WIEDER AN : 06431/25866 (BRD)"